home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / 3d / vb3d2 / vb_code / sub3d.frm < prev   
Text File  |  1995-09-29  |  1KB  |  46 lines
  1. VERSION 2.00
  2. Begin Form Sub3D 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "3D Test Sub"
  5.    ClipControls    =   0   'False
  6.    Height          =   3000
  7.    Left            =   1740
  8.    MaxButton       =   0   'False
  9.    MinButton       =   0   'False
  10.    ScaleHeight     =   2595
  11.    ScaleWidth      =   4875
  12.    Top             =   2565
  13.    Width           =   4995
  14.    Begin CommandButton Command1 
  15.       Caption         =   "&About"
  16.       Height          =   375
  17.       Left            =   3360
  18.       TabIndex        =   0
  19.       Top             =   300
  20.       Width           =   1215
  21.    End
  22. End
  23. Option Explicit
  24.  
  25. Sub Command1_Click ()
  26.  
  27.     If Command1.Caption = "&OK" Then
  28.         Unload Me
  29.         Exit Sub
  30.     End If
  31.  
  32.     ShellAbout hWnd, "3D with VB", "Cody by Christian Germelmann" + Chr$(10) + "CompuServe 100520,2644", Main3D.Icon
  33.  
  34.     Command1.Caption = "&OK"
  35.  
  36. End Sub
  37.  
  38. Sub Form_Load ()
  39.  
  40.     Define3D Me
  41.  
  42.     CutSystemMenu Me, 2
  43.  
  44. End Sub
  45.  
  46.